home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
comm
/
zcommbar.zip
/
313.T
< prev
next >
Wrap
Text File
|
1987-12-22
|
2KB
|
37 lines
begin: ena -8g;cls;lput \r
lput " ╒ 313 Directory ════════════════════╕\r\n"
lput " │ a - Control Break │\r\n"
lput " │ b - Peanut │\r\n"
lput " │ c - Heath RCP/M │\r\n"
lput " │ d - Trading Post │\r\n"
lput " │ e - Technical RCP/M │\r\n"
lput " │ f - Support │\r\n"
lput " │ g - Automated Resources │\r\n"
lput " │ h - Microchip │\r\n"
lput " │ i - PC-Exchange │\r\n"
lput " │ j - USA Collosus │\r\n"
lput " │ k - Kiloboard │\r\n"
lput " │ l - East Area BBS │\r\n"
lput " │ m - Great Lakes │\r\n"
lput " │ 1 - New City 0 - Redial │\r\n"
lput " ╘═══════════════════════════════════╛\r\n"
acceptl1 s1 "Letter ?"
if is1,m put "d689-3021\r"
if is1,l put "d949-6665\r"
if is1,k put "d543-5886\r"
if is1,j put "d398-7926\r"
if is1,i put "d849-0499\r"
if is1,h put "d949-6745\r"
if is1,g put "d398-0824\r"
if is1,f put "d946-4821\r"
if is1,e put "d885-0506\r"
if is1,d put "d882-7104\r"
if is1,c put "d759-6569\r"
if is1,b put "d585-3893\r"
if is1,a put "d567-4834\r"
if is1,1 break; put \rD\r;call city.pursuit.t
if is1,0 put r\r;pat 1 S?;wait;put 5\r
pat 1i LINE;pat 2 *;wait
if !1 goback begin
t